fix single function top level generation

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 217b7ffcd866d0872019652019b86c313bb2804c..47d4de87c6b43dd4490cd0e3d9703aaa9bff765a 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -434,6 +434,8 @@ Put PREFIX in front of it."
                 (comp-func-lap func) lap
                 (comp-func-frame-size func)
                 (comp-byte-frame-size (comp-func-byte-func func))))
+        (setf (comp-ctxt-top-level-forms comp-ctxt)
+              (list (make-byte-to-native-function :name function-name)))
         (list func))))
 
 (cl-defgeneric comp-spill-lap-function ((filename string))